home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
TIPS
/
CURSOR.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-10-09
|
1KB
|
50 lines
{************************************************}
{ }
{ Turbo Pascal for Windows }
{ Tips & Techniques Demo Program }
{ Copyright (c) 1991 by Borland International }
{ }
{************************************************}
program Cursor;
uses WinTypes, WinProcs, WObjects;
type
TApp = object(TApplication)
procedure InitMainWindow; virtual;
end;
PMyWindow = ^TMyWindow;
TMyWindow = object(TWindow)
function GetClassName: PChar; virtual;
procedure GetWindowClass(var AWndClass: TWndClass); virtual;
end;
procedure TApp.InitMainWindow;
begin
MainWindow := New(PMyWindow, Init(Nil, 'Cross'));
end;
function TMyWindow.GetClassName: PChar;
begin
GetClassName := 'CrossCursorDemoWindow';
end;
procedure TMyWindow.GetWindowClass(var AWndClass: TWndClass);
begin
TWindow.GetWindowClass(AWndClass);
AWndClass.HCursor := LoadCursor(HWindow, idc_Cross);
end;
var
App: TApp;
begin
App.Init('Cross');
App.Run;
App.Done;
end.